///// Teoria do Equilíbrio Pontuado e as dinâmicas de mudança no orçamento federal brasileiro (2000-2023) /////

// Autoria: BRASIl, F. G.; MACHADO, G. S.; PERES, U. D.; GARCIA, F. L. M. 

// Todos os dados utilizados neste trabalho foram obtidos do Painel do Orçamento Federal, da Secretaria do Tesouro Nacional (STN), e de acordo com as 
// escolhas metodológicas descritas no texto do artigo. 


/// Dicionário das variáveis ///

// ano = ano das despesas aprovadas para execução
// funcao = função orçamentária (setor de política pública)
// subfuncao = subfunção orçamentária (subsetor de política pública)
// valor_loa = valor das despesas aprovadas na Lei Orçamentária Anual (LOA)
// funcao_subfuncao = código da combinação de função e subfunção
// code_cap = código atribuído às combinações de função e subfunção de acordo com mastercodebook do Comparative Agendas Project (CAP)
// valor_loa_real = valor real das deespesas aprovadas para execução (despesas deflacionadas)
// change_real_spending = variação percentual das despesas aprovadas para execução
// Pontuação = ocorrência de pontuação na variação orçamentária
// tipo_mudança = caracterização do tipo de mudança orçamentária


// a base original contém estas duas variáveis adiante que são geradas no processo de codificação, pois a elaboração de algumas tabelas
// demandam que a base seja recarregada e utilize estas variáveis já codificadas e nomeadas. 
// Para fins de validação, essas duas variáveis serão excluídas a priori, para que sejam criadas novamente a partir da próxima etapa. 

drop code_cap majortopic_name

/// Processo de codificação das função e subfunções segundo Codebook do CAP ///


generate double code_cap = .

replace code_cap =	20	if funcao_subfuncao ==	"01031"
replace code_cap =	20	if funcao_subfuncao ==	"01032"
replace code_cap =	20	if funcao_subfuncao ==	"01122"
replace code_cap =	17	if funcao_subfuncao ==	"01126"
replace code_cap =	20	if funcao_subfuncao ==	"01128"
replace code_cap =	19	if funcao_subfuncao ==	"01212"
replace code_cap =	20	if funcao_subfuncao ==	"01301"
replace code_cap =	20	if funcao_subfuncao ==	"01306"
replace code_cap =	5	if funcao_subfuncao ==	"01331"
replace code_cap =	20	if funcao_subfuncao ==	"01365"
replace code_cap =	12	if funcao_subfuncao ==	"02061"
replace code_cap =	12	if funcao_subfuncao ==	"02122"
replace code_cap =	17	if funcao_subfuncao ==	"02126"
replace code_cap =	12	if funcao_subfuncao ==	"02128"
replace code_cap =	19	if funcao_subfuncao ==	"02212"
replace code_cap =	12	if funcao_subfuncao ==	"02301"
replace code_cap =	12	if funcao_subfuncao ==	"02306"
replace code_cap =	5	if funcao_subfuncao ==	"02331"
replace code_cap =	12	if funcao_subfuncao ==	"02365"
replace code_cap =	12	if funcao_subfuncao ==	"03091"
replace code_cap =	12	if funcao_subfuncao ==	"03092"
replace code_cap =	12	if funcao_subfuncao ==	"03122"
replace code_cap =	17	if funcao_subfuncao ==	"03126"
replace code_cap =	12	if funcao_subfuncao ==	"03128"
replace code_cap =	19	if funcao_subfuncao ==	"03212"
replace code_cap =	12	if funcao_subfuncao ==	"03301"
replace code_cap =	12	if funcao_subfuncao ==	"03306"
replace code_cap =	5	if funcao_subfuncao ==	"03331"
replace code_cap =	12	if funcao_subfuncao ==	"03365"
replace code_cap =	20	if funcao_subfuncao ==	"04121"
replace code_cap =	20	if funcao_subfuncao ==	"04122"
replace code_cap =	20	if funcao_subfuncao ==	"04123"
replace code_cap =	20	if funcao_subfuncao ==	"04124"
replace code_cap =	20	if funcao_subfuncao ==	"04125"
replace code_cap =	17	if funcao_subfuncao ==	"04126"
replace code_cap =	20	if funcao_subfuncao ==	"04128"
replace code_cap =	20	if funcao_subfuncao ==	"04129"
replace code_cap =	17	if funcao_subfuncao ==	"04131"
replace code_cap =	19	if funcao_subfuncao ==	"04212"
replace code_cap =	13	if funcao_subfuncao ==	"04244"
replace code_cap =	5	if funcao_subfuncao ==	"04271"
replace code_cap =	5	if funcao_subfuncao ==	"04273"
replace code_cap =	20	if funcao_subfuncao ==	"04301"
replace code_cap =	20	if funcao_subfuncao ==	"04306"
replace code_cap =	5	if funcao_subfuncao ==	"04331"
replace code_cap =	20	if funcao_subfuncao ==	"04364"
replace code_cap =	20	if funcao_subfuncao ==	"04365"
replace code_cap =	2	if funcao_subfuncao ==	"04422"
replace code_cap =	17	if funcao_subfuncao ==	"04571"
replace code_cap =	17	if funcao_subfuncao ==	"04573"
replace code_cap =	15	if funcao_subfuncao ==	"04691"
replace code_cap =	15	if funcao_subfuncao ==	"04694"
replace code_cap =	28	if funcao_subfuncao ==	"04845"
replace code_cap =	16	if funcao_subfuncao ==	"05121"
replace code_cap =	16	if funcao_subfuncao ==	"05122"
replace code_cap =	16	if funcao_subfuncao ==	"05125"
replace code_cap =	17	if funcao_subfuncao ==	"05126"
replace code_cap =	16	if funcao_subfuncao ==	"05128"
replace code_cap =	17	if funcao_subfuncao ==	"05131"
replace code_cap =	16	if funcao_subfuncao ==	"05151"
replace code_cap =	16	if funcao_subfuncao ==	"05152"
replace code_cap =	16	if funcao_subfuncao ==	"05153"
replace code_cap =	17	if funcao_subfuncao ==	"05183"
replace code_cap =	19	if funcao_subfuncao ==	"05212"
replace code_cap =	13	if funcao_subfuncao ==	"05244"
replace code_cap =	3	if funcao_subfuncao ==	"05301"
replace code_cap =	3	if funcao_subfuncao ==	"05302"
replace code_cap =	3	if funcao_subfuncao ==	"05303"
replace code_cap =	3	if funcao_subfuncao ==	"05306"
replace code_cap =	5	if funcao_subfuncao ==	"05331"
replace code_cap =	6	if funcao_subfuncao ==	"05361"
replace code_cap =	6	if funcao_subfuncao ==	"05362"
replace code_cap =	6	if funcao_subfuncao ==	"05364"
replace code_cap =	6	if funcao_subfuncao ==	"05365"
replace code_cap =	6	if funcao_subfuncao ==	"05366"
replace code_cap =	23	if funcao_subfuncao ==	"05391"
replace code_cap =	21	if funcao_subfuncao ==	"05423"
replace code_cap =	14	if funcao_subfuncao ==	"05451"
replace code_cap =	17	if funcao_subfuncao ==	"05545"
replace code_cap =	17	if funcao_subfuncao ==	"05571"
replace code_cap =	17	if funcao_subfuncao ==	"05572"
replace code_cap =	1	if funcao_subfuncao ==	"05661"
replace code_cap =	1	if funcao_subfuncao ==	"05662"
replace code_cap =	17	if funcao_subfuncao ==	"05722"
replace code_cap =	8	if funcao_subfuncao ==	"05752"
replace code_cap =	10	if funcao_subfuncao ==	"05781"
replace code_cap =	10	if funcao_subfuncao ==	"05782"
replace code_cap =	10	if funcao_subfuncao ==	"05784"
replace code_cap =	12	if funcao_subfuncao ==	"06092"
replace code_cap =	12	if funcao_subfuncao ==	"06122"
replace code_cap =	12	if funcao_subfuncao ==	"06125"
replace code_cap =	17	if funcao_subfuncao ==	"06126"
replace code_cap =	12	if funcao_subfuncao ==	"06128"
replace code_cap =	17	if funcao_subfuncao ==	"06131"
replace code_cap =	12	if funcao_subfuncao ==	"06181"
replace code_cap =	16	if funcao_subfuncao ==	"06182"
replace code_cap =	17	if funcao_subfuncao ==	"06183"
replace code_cap =	19	if funcao_subfuncao ==	"06212"
replace code_cap =	12	if funcao_subfuncao ==	"06243"
replace code_cap =	20	if funcao_subfuncao ==	"06301"
replace code_cap =	20	if funcao_subfuncao ==	"06303"
replace code_cap =	20	if funcao_subfuncao ==	"06306"
replace code_cap =	5	if funcao_subfuncao ==	"06331"
replace code_cap =	20	if funcao_subfuncao ==	"06365"
replace code_cap =	6	if funcao_subfuncao ==	"06366"
replace code_cap =	17	if funcao_subfuncao ==	"06571"
replace code_cap =	17	if funcao_subfuncao ==	"06722"
replace code_cap =	19	if funcao_subfuncao ==	"07122"
replace code_cap =	17	if funcao_subfuncao ==	"07126"
replace code_cap =	19	if funcao_subfuncao ==	"07128"
replace code_cap =	19	if funcao_subfuncao ==	"07211"
replace code_cap =	19	if funcao_subfuncao ==	"07212"
replace code_cap =	20	if funcao_subfuncao ==	"07301"
replace code_cap =	20	if funcao_subfuncao ==	"07306"
replace code_cap =	5	if funcao_subfuncao ==	"07331"
replace code_cap =	20	if funcao_subfuncao ==	"07365"
replace code_cap =	23	if funcao_subfuncao ==	"07392"
replace code_cap =	17	if funcao_subfuncao ==	"07573"
replace code_cap =	15	if funcao_subfuncao ==	"07691"
replace code_cap =	13	if funcao_subfuncao ==	"08122"
replace code_cap =	13	if funcao_subfuncao ==	"08125"
replace code_cap =	17	if funcao_subfuncao ==	"08126"
replace code_cap =	13	if funcao_subfuncao ==	"08128"
replace code_cap =	17	if funcao_subfuncao ==	"08131"
replace code_cap =	13	if funcao_subfuncao ==	"08241"
replace code_cap =	13	if funcao_subfuncao ==	"08242"
replace code_cap =	13	if funcao_subfuncao ==	"08243"
replace code_cap =	13	if funcao_subfuncao ==	"08244"
replace code_cap =	13	if funcao_subfuncao ==	"08306"
replace code_cap =	5	if funcao_subfuncao ==	"09122"
replace code_cap =	5	if funcao_subfuncao ==	"09125"
replace code_cap =	17	if funcao_subfuncao ==	"09126"
replace code_cap =	5	if funcao_subfuncao ==	"09128"
replace code_cap =	5	if funcao_subfuncao ==	"09129"
replace code_cap =	17	if funcao_subfuncao ==	"09131"
replace code_cap =	19	if funcao_subfuncao ==	"09212"
replace code_cap =	5	if funcao_subfuncao ==	"09271"
replace code_cap =	5	if funcao_subfuncao ==	"09272"
replace code_cap =	5	if funcao_subfuncao ==	"09273"
replace code_cap =	5	if funcao_subfuncao ==	"09274"
replace code_cap =	20	if funcao_subfuncao ==	"09301"
replace code_cap =	20	if funcao_subfuncao ==	"09306"
replace code_cap =	5	if funcao_subfuncao ==	"09331"
replace code_cap =	20	if funcao_subfuncao ==	"09365"
replace code_cap =	5	if funcao_subfuncao ==	"09665"
replace code_cap =	3	if funcao_subfuncao ==	"10122"
replace code_cap =	3	if funcao_subfuncao ==	"10125"
replace code_cap =	17	if funcao_subfuncao ==	"10126"
replace code_cap =	3	if funcao_subfuncao ==	"10128"
replace code_cap =	17	if funcao_subfuncao ==	"10131"
replace code_cap =	19	if funcao_subfuncao ==	"10212"
replace code_cap =	3	if funcao_subfuncao ==	"10242"
replace code_cap =	3	if funcao_subfuncao ==	"10243"
replace code_cap =	3	if funcao_subfuncao ==	"10244"
replace code_cap =	5	if funcao_subfuncao ==	"10273"
replace code_cap =	3	if funcao_subfuncao ==	"10301"
replace code_cap =	3	if funcao_subfuncao ==	"10302"
replace code_cap =	3	if funcao_subfuncao ==	"10303"
replace code_cap =	3	if funcao_subfuncao ==	"10304"
replace code_cap =	3	if funcao_subfuncao ==	"10305"
replace code_cap =	3	if funcao_subfuncao ==	"10306"
replace code_cap =	5	if funcao_subfuncao ==	"10331"
replace code_cap =	3	if funcao_subfuncao ==	"10363"
replace code_cap =	3	if funcao_subfuncao ==	"10364"
replace code_cap =	20	if funcao_subfuncao ==	"10365"
replace code_cap =	14	if funcao_subfuncao ==	"10511"
replace code_cap =	17	if funcao_subfuncao ==	"10571"
replace code_cap =	17	if funcao_subfuncao ==	"10572"
replace code_cap =	17	if funcao_subfuncao ==	"10573"
replace code_cap =	3	if funcao_subfuncao ==	"10665"
replace code_cap =	5	if funcao_subfuncao ==	"11122"
replace code_cap =	5	if funcao_subfuncao ==	"11125"
replace code_cap =	17	if funcao_subfuncao ==	"11126"
replace code_cap =	5	if funcao_subfuncao ==	"11128"
replace code_cap =	17	if funcao_subfuncao ==	"11131"
replace code_cap =	19	if funcao_subfuncao ==	"11212"
replace code_cap =	20	if funcao_subfuncao ==	"11301"
replace code_cap =	20	if funcao_subfuncao ==	"11306"
replace code_cap =	5	if funcao_subfuncao ==	"11331"
replace code_cap =	5	if funcao_subfuncao ==	"11332"
replace code_cap =	5	if funcao_subfuncao ==	"11333"
replace code_cap =	5	if funcao_subfuncao ==	"11334"
replace code_cap =	6	if funcao_subfuncao ==	"11363"
replace code_cap =	20	if funcao_subfuncao ==	"11365"
replace code_cap =	2	if funcao_subfuncao ==	"11422"
replace code_cap =	17	if funcao_subfuncao ==	"11571"
replace code_cap =	17	if funcao_subfuncao ==	"11573"
replace code_cap =	5	if funcao_subfuncao ==	"11665"
replace code_cap =	6	if funcao_subfuncao ==	"12122"
replace code_cap =	6	if funcao_subfuncao ==	"12125"
replace code_cap =	17	if funcao_subfuncao ==	"12126"
replace code_cap =	6	if funcao_subfuncao ==	"12128"
replace code_cap =	6	if funcao_subfuncao ==	"12129"
replace code_cap =	17	if funcao_subfuncao ==	"12131"
replace code_cap =	17	if funcao_subfuncao ==	"12183"
replace code_cap =	19	if funcao_subfuncao ==	"12212"
replace code_cap =	13	if funcao_subfuncao ==	"12244"
replace code_cap =	20	if funcao_subfuncao ==	"12301"
replace code_cap =	20	if funcao_subfuncao ==	"12302"
replace code_cap =	13	if funcao_subfuncao ==	"12306"
replace code_cap =	5	if funcao_subfuncao ==	"12331"
replace code_cap =	6	if funcao_subfuncao ==	"12361"
replace code_cap =	6	if funcao_subfuncao ==	"12362"
replace code_cap =	6	if funcao_subfuncao ==	"12363"
replace code_cap =	6	if funcao_subfuncao ==	"12364"
replace code_cap =	6	if funcao_subfuncao ==	"12365"
replace code_cap =	6	if funcao_subfuncao ==	"12366"
replace code_cap =	6	if funcao_subfuncao ==	"12367"
replace code_cap =	23	if funcao_subfuncao ==	"12391"
replace code_cap =	23	if funcao_subfuncao ==	"12392"
replace code_cap =	6	if funcao_subfuncao ==	"12423"
replace code_cap =	17	if funcao_subfuncao ==	"12571"
replace code_cap =	17	if funcao_subfuncao ==	"12573"
replace code_cap =	28	if funcao_subfuncao ==	"12846"
replace code_cap =	23	if funcao_subfuncao ==	"13122"
replace code_cap =	23	if funcao_subfuncao ==	"13125"
replace code_cap =	17	if funcao_subfuncao ==	"13126"
replace code_cap =	23	if funcao_subfuncao ==	"13128"
replace code_cap =	17	if funcao_subfuncao ==	"13131"
replace code_cap =	19	if funcao_subfuncao ==	"13212"
replace code_cap =	20	if funcao_subfuncao ==	"13301"
replace code_cap =	20	if funcao_subfuncao ==	"13306"
replace code_cap =	5	if funcao_subfuncao ==	"13331"
replace code_cap =	6	if funcao_subfuncao ==	"13365"
replace code_cap =	6	if funcao_subfuncao ==	"13367"
replace code_cap =	23	if funcao_subfuncao ==	"13391"
replace code_cap =	23	if funcao_subfuncao ==	"13392"
replace code_cap =	2	if funcao_subfuncao ==	"13422"
replace code_cap =	17	if funcao_subfuncao ==	"13571"
replace code_cap =	2	if funcao_subfuncao ==	"14122"
replace code_cap =	2	if funcao_subfuncao ==	"14125"
replace code_cap =	17	if funcao_subfuncao ==	"14126"
replace code_cap =	21	if funcao_subfuncao ==	"14127"
replace code_cap =	2	if funcao_subfuncao ==	"14128"
replace code_cap =	17	if funcao_subfuncao ==	"14131"
replace code_cap =	12	if funcao_subfuncao ==	"14181"
replace code_cap =	20	if funcao_subfuncao ==	"14301"
replace code_cap =	20	if funcao_subfuncao ==	"14306"
replace code_cap =	5	if funcao_subfuncao ==	"14331"
replace code_cap =	20	if funcao_subfuncao ==	"14365"
replace code_cap =	23	if funcao_subfuncao ==	"14391"
replace code_cap =	23	if funcao_subfuncao ==	"14392"
replace code_cap =	12	if funcao_subfuncao ==	"14421"
replace code_cap =	2	if funcao_subfuncao ==	"14422"
replace code_cap =	2	if funcao_subfuncao ==	"14423"
replace code_cap =	7	if funcao_subfuncao ==	"14541"
replace code_cap =	7	if funcao_subfuncao ==	"14543"
replace code_cap =	17	if funcao_subfuncao ==	"14571"
replace code_cap =	14	if funcao_subfuncao ==	"15451"
replace code_cap =	14	if funcao_subfuncao ==	"15452"
replace code_cap =	10	if funcao_subfuncao ==	"15453"
replace code_cap =	14	if funcao_subfuncao ==	"16482"
replace code_cap =	14	if funcao_subfuncao ==	"16846"
replace code_cap =	7	if funcao_subfuncao ==	"17512"
replace code_cap =	7	if funcao_subfuncao ==	"18121"
replace code_cap =	7	if funcao_subfuncao ==	"18122"
replace code_cap =	17	if funcao_subfuncao ==	"18126"
replace code_cap =	14	if funcao_subfuncao ==	"18127"
replace code_cap =	7	if funcao_subfuncao ==	"18128"
replace code_cap =	17	if funcao_subfuncao ==	"18131"
replace code_cap =	16	if funcao_subfuncao ==	"18182"
replace code_cap =	19	if funcao_subfuncao ==	"18212"
replace code_cap =	13	if funcao_subfuncao ==	"18244"
replace code_cap =	20	if funcao_subfuncao ==	"18301"
replace code_cap =	20	if funcao_subfuncao ==	"18306"
replace code_cap =	5	if funcao_subfuncao ==	"18331"
replace code_cap =	20	if funcao_subfuncao ==	"18365"
replace code_cap =	21	if funcao_subfuncao ==	"18423"
replace code_cap =	7	if funcao_subfuncao ==	"18512"
replace code_cap =	7	if funcao_subfuncao ==	"18541"
replace code_cap =	7	if funcao_subfuncao ==	"18542"
replace code_cap =	7	if funcao_subfuncao ==	"18543"
replace code_cap =	7	if funcao_subfuncao ==	"18544"
replace code_cap =	17	if funcao_subfuncao ==	"18545"
replace code_cap =	17	if funcao_subfuncao ==	"18571"
replace code_cap =	17	if funcao_subfuncao ==	"18573"
replace code_cap =	7	if funcao_subfuncao ==	"18601"
replace code_cap =	7	if funcao_subfuncao ==	"18606"
replace code_cap =	7	if funcao_subfuncao ==	"18665"
replace code_cap =	15	if funcao_subfuncao ==	"18691"
replace code_cap =	15	if funcao_subfuncao ==	"18695"
replace code_cap =	10	if funcao_subfuncao ==	"18782"
replace code_cap =	17	if funcao_subfuncao ==	"19122"
replace code_cap =	17	if funcao_subfuncao ==	"19125"
replace code_cap =	17	if funcao_subfuncao ==	"19126"
replace code_cap =	17	if funcao_subfuncao ==	"19128"
replace code_cap =	17	if funcao_subfuncao ==	"19131"
replace code_cap =	16	if funcao_subfuncao ==	"19153"
replace code_cap =	19	if funcao_subfuncao ==	"19212"
replace code_cap =	5	if funcao_subfuncao ==	"19273"
replace code_cap =	20	if funcao_subfuncao ==	"19301"
replace code_cap =	20	if funcao_subfuncao ==	"19306"
replace code_cap =	5	if funcao_subfuncao ==	"19331"
replace code_cap =	20	if funcao_subfuncao ==	"19365"
replace code_cap =	17	if funcao_subfuncao ==	"19571"
replace code_cap =	17	if funcao_subfuncao ==	"19572"
replace code_cap =	17	if funcao_subfuncao ==	"19573"
replace code_cap =	15	if funcao_subfuncao ==	"19692"
replace code_cap =	4	if funcao_subfuncao ==	"20122"
replace code_cap =	4	if funcao_subfuncao ==	"20125"
replace code_cap =	17	if funcao_subfuncao ==	"20126"
replace code_cap =	21	if funcao_subfuncao ==	"20127"
replace code_cap =	4	if funcao_subfuncao ==	"20128"
replace code_cap =	17	if funcao_subfuncao ==	"20131"
replace code_cap =	19	if funcao_subfuncao ==	"20212"
replace code_cap =	5	if funcao_subfuncao ==	"20273"
replace code_cap =	20	if funcao_subfuncao ==	"20301"
replace code_cap =	20	if funcao_subfuncao ==	"20306"
replace code_cap =	5	if funcao_subfuncao ==	"20331"
replace code_cap =	6	if funcao_subfuncao ==	"20363"
replace code_cap =	20	if funcao_subfuncao ==	"20365"
replace code_cap =	21	if funcao_subfuncao ==	"20423"
replace code_cap =	7	if funcao_subfuncao ==	"20543"
replace code_cap =	17	if funcao_subfuncao ==	"20545"
replace code_cap =	17	if funcao_subfuncao ==	"20572"
replace code_cap =	7	if funcao_subfuncao ==	"20601"
replace code_cap =	7	if funcao_subfuncao ==	"20602"
replace code_cap =	7	if funcao_subfuncao ==	"20603"
replace code_cap =	7	if funcao_subfuncao ==	"20604"
replace code_cap =	4	if funcao_subfuncao ==	"20605"
replace code_cap =	4	if funcao_subfuncao ==	"20606"
replace code_cap =	4	if funcao_subfuncao ==	"20607"
replace code_cap =	18	if funcao_subfuncao ==	"20693"
replace code_cap =	8	if funcao_subfuncao ==	"20752"
replace code_cap =	28	if funcao_subfuncao ==	"20846"
replace code_cap =	14	if funcao_subfuncao ==	"21122"
replace code_cap =	17	if funcao_subfuncao ==	"21126"
replace code_cap =	14	if funcao_subfuncao ==	"21128"
replace code_cap =	17	if funcao_subfuncao ==	"21131"
replace code_cap =	20	if funcao_subfuncao ==	"21301"
replace code_cap =	20	if funcao_subfuncao ==	"21306"
replace code_cap =	5	if funcao_subfuncao ==	"21331"
replace code_cap =	20	if funcao_subfuncao ==	"21365"
replace code_cap =	14	if funcao_subfuncao ==	"21631"
replace code_cap =	14	if funcao_subfuncao ==	"21632"
replace code_cap =	1	if funcao_subfuncao ==	"22122"
replace code_cap =	17	if funcao_subfuncao ==	"22126"
replace code_cap =	1	if funcao_subfuncao ==	"22128"
replace code_cap =	17	if funcao_subfuncao ==	"22131"
replace code_cap =	19	if funcao_subfuncao ==	"22212"
replace code_cap =	5	if funcao_subfuncao ==	"22273"
replace code_cap =	20	if funcao_subfuncao ==	"22301"
replace code_cap =	20	if funcao_subfuncao ==	"22306"
replace code_cap =	5	if funcao_subfuncao ==	"22331"
replace code_cap =	6	if funcao_subfuncao ==	"22363"
replace code_cap =	20	if funcao_subfuncao ==	"22365"
replace code_cap =	7	if funcao_subfuncao ==	"22542"
replace code_cap =	1	if funcao_subfuncao ==	"22661"
replace code_cap =	1	if funcao_subfuncao ==	"22662"
replace code_cap =	8	if funcao_subfuncao ==	"22663"
replace code_cap =	1	if funcao_subfuncao ==	"22664"
replace code_cap =	1	if funcao_subfuncao ==	"22665"
replace code_cap =	15	if funcao_subfuncao ==	"23122"
replace code_cap =	15	if funcao_subfuncao ==	"23125"
replace code_cap =	17	if funcao_subfuncao ==	"23126"
replace code_cap =	15	if funcao_subfuncao ==	"23128"
replace code_cap =	17	if funcao_subfuncao ==	"23131"
replace code_cap =	19	if funcao_subfuncao ==	"23212"
replace code_cap =	20	if funcao_subfuncao ==	"23301"
replace code_cap =	20	if funcao_subfuncao ==	"23306"
replace code_cap =	5	if funcao_subfuncao ==	"23331"
replace code_cap =	20	if funcao_subfuncao ==	"23365"
replace code_cap =	14	if funcao_subfuncao ==	"23451"
replace code_cap =	15	if funcao_subfuncao ==	"23691"
replace code_cap =	18	if funcao_subfuncao ==	"23693"
replace code_cap =	15	if funcao_subfuncao ==	"23695"
replace code_cap =	15	if funcao_subfuncao ==	"23846"
replace code_cap =	17	if funcao_subfuncao ==	"24122"
replace code_cap =	17	if funcao_subfuncao ==	"24126"
replace code_cap =	17	if funcao_subfuncao ==	"24128"
replace code_cap =	17	if funcao_subfuncao ==	"24131"
replace code_cap =	19	if funcao_subfuncao ==	"24212"
replace code_cap =	20	if funcao_subfuncao ==	"24301"
replace code_cap =	20	if funcao_subfuncao ==	"24306"
replace code_cap =	5	if funcao_subfuncao ==	"24331"
replace code_cap =	20	if funcao_subfuncao ==	"24365"
replace code_cap =	17	if funcao_subfuncao ==	"24722"
replace code_cap =	8	if funcao_subfuncao ==	"25122"
replace code_cap =	17	if funcao_subfuncao ==	"25126"
replace code_cap =	8	if funcao_subfuncao ==	"25128"
replace code_cap =	19	if funcao_subfuncao ==	"25212"
replace code_cap =	5	if funcao_subfuncao ==	"25273"
replace code_cap =	20	if funcao_subfuncao ==	"25301"
replace code_cap =	20	if funcao_subfuncao ==	"25306"
replace code_cap =	5	if funcao_subfuncao ==	"25331"
replace code_cap =	20	if funcao_subfuncao ==	"25365"
replace code_cap =	1	if funcao_subfuncao ==	"25662"
replace code_cap =	8	if funcao_subfuncao ==	"25752"
replace code_cap =	8	if funcao_subfuncao ==	"25753"
replace code_cap =	10	if funcao_subfuncao ==	"26121"
replace code_cap =	10	if funcao_subfuncao ==	"26122"
replace code_cap =	17	if funcao_subfuncao ==	"26126"
replace code_cap =	10	if funcao_subfuncao ==	"26128"
replace code_cap =	17	if funcao_subfuncao ==	"26131"
replace code_cap =	19	if funcao_subfuncao ==	"26212"
replace code_cap =	5	if funcao_subfuncao ==	"26273"
replace code_cap =	20	if funcao_subfuncao ==	"26301"
replace code_cap =	20	if funcao_subfuncao ==	"26306"
replace code_cap =	5	if funcao_subfuncao ==	"26331"
replace code_cap =	20	if funcao_subfuncao ==	"26365"
replace code_cap =	7	if funcao_subfuncao ==	"26541"
replace code_cap =	10	if funcao_subfuncao ==	"26782"
replace code_cap =	10	if funcao_subfuncao ==	"26783"
replace code_cap =	10	if funcao_subfuncao ==	"26784"
replace code_cap =	23	if funcao_subfuncao ==	"27122"
replace code_cap =	17	if funcao_subfuncao ==	"27126"
replace code_cap =	23	if funcao_subfuncao ==	"27128"
replace code_cap =	19	if funcao_subfuncao ==	"27212"
replace code_cap =	20	if funcao_subfuncao ==	"27301"
replace code_cap =	20	if funcao_subfuncao ==	"27306"
replace code_cap =	5	if funcao_subfuncao ==	"27331"
replace code_cap =	20	if funcao_subfuncao ==	"27365"
replace code_cap =	12	if funcao_subfuncao ==	"27421"
replace code_cap =	17	if funcao_subfuncao ==	"27572"
replace code_cap =	17	if funcao_subfuncao ==	"27573"
replace code_cap =	23	if funcao_subfuncao ==	"27811"
replace code_cap =	23	if funcao_subfuncao ==	"27812"
replace code_cap =	28	if funcao_subfuncao ==	"28212"
replace code_cap =	28	if funcao_subfuncao ==	"28845"
replace code_cap =	28	if funcao_subfuncao ==	"28846"
replace code_cap =	99	if funcao_subfuncao ==	"99999"
replace code_cap =	17	if funcao_subfuncao ==	"01131"
replace code_cap =	12	if funcao_subfuncao ==	"04061"
replace code_cap =	21	if funcao_subfuncao ==	"04127"
replace code_cap =	14	if funcao_subfuncao ==	"04451"
replace code_cap =	6	if funcao_subfuncao ==	"12243"
replace code_cap =	17	if funcao_subfuncao ==	"12572"
replace code_cap =	1	if funcao_subfuncao ==	"19662"
replace code_cap =	13	if funcao_subfuncao ==	"20244"
replace code_cap =	10	if funcao_subfuncao ==	"20782"
replace code_cap =	15	if funcao_subfuncao ==	"22691"
replace code_cap =	17	if funcao_subfuncao ==	"25572"
replace code_cap =	5	if funcao_subfuncao ==	"01272"
replace code_cap =	12	if funcao_subfuncao ==	"02031"
replace code_cap =	5	if funcao_subfuncao ==	"02272"
replace code_cap =	12	if funcao_subfuncao ==	"03125"
replace code_cap =	17	if funcao_subfuncao ==	"03131"
replace code_cap =	5	if funcao_subfuncao ==	"03272"
replace code_cap =	2	if funcao_subfuncao ==	"03422"
replace code_cap =	5	if funcao_subfuncao ==	"04272"
replace code_cap =	14	if funcao_subfuncao ==	"04482"
replace code_cap =	1	if funcao_subfuncao ==	"04662"
replace code_cap =	20	if funcao_subfuncao ==	"04665"
replace code_cap =	18	if funcao_subfuncao ==	"04693"
replace code_cap =	5	if funcao_subfuncao ==	"05272"
replace code_cap =	14	if funcao_subfuncao ==	"05482"
replace code_cap =	5	if funcao_subfuncao ==	"06272"
replace code_cap =	17	if funcao_subfuncao ==	"06573"
replace code_cap =	5	if funcao_subfuncao ==	"07272"
replace code_cap =	14	if funcao_subfuncao ==	"08512"
replace code_cap =	3	if funcao_subfuncao ==	"10241"
replace code_cap =	5	if funcao_subfuncao ==	"10272"
replace code_cap =	5	if funcao_subfuncao ==	"11272"
replace code_cap =	6	if funcao_subfuncao ==	"12121"
replace code_cap =	6	if funcao_subfuncao ==	"12123"
replace code_cap =	5	if funcao_subfuncao ==	"12272"
replace code_cap =	20	if funcao_subfuncao ==	"12303"
replace code_cap =	5	if funcao_subfuncao ==	"13272"
replace code_cap =	5	if funcao_subfuncao ==	"14272"
replace code_cap =	14	if funcao_subfuncao ==	"16665"
replace code_cap =	14	if funcao_subfuncao ==	"17665"
replace code_cap =	5	if funcao_subfuncao ==	"18272"
replace code_cap =	17	if funcao_subfuncao ==	"18572"
replace code_cap =	17	if funcao_subfuncao ==	"19121"
replace code_cap =	5	if funcao_subfuncao ==	"19272"
replace code_cap =	15	if funcao_subfuncao ==	"19691"
replace code_cap =	28	if funcao_subfuncao ==	"19846"
replace code_cap =	4	if funcao_subfuncao ==	"20121"
replace code_cap =	5	if funcao_subfuncao ==	"20272"
replace code_cap =	3	if funcao_subfuncao ==	"20304"
replace code_cap =	28	if funcao_subfuncao ==	"20843"
replace code_cap =	5	if funcao_subfuncao ==	"21272"
replace code_cap =	20	if funcao_subfuncao ==	"21361"
replace code_cap =	1	if funcao_subfuncao ==	"22125"
replace code_cap =	5	if funcao_subfuncao ==	"22272"
replace code_cap =	23	if funcao_subfuncao ==	"22391"
replace code_cap =	23	if funcao_subfuncao ==	"22392"
replace code_cap =	4	if funcao_subfuncao ==	"22632"
replace code_cap =	5	if funcao_subfuncao ==	"23272"
replace code_cap =	5	if funcao_subfuncao ==	"24272"
replace code_cap =	5	if funcao_subfuncao ==	"24273"
replace code_cap =	17	if funcao_subfuncao ==	"24721"
replace code_cap =	8	if funcao_subfuncao ==	"25121"
replace code_cap =	17	if funcao_subfuncao ==	"25131"
replace code_cap =	5	if funcao_subfuncao ==	"25272"
replace code_cap =	8	if funcao_subfuncao ==	"25751"
replace code_cap =	5	if funcao_subfuncao ==	"26272"
replace code_cap =	20	if funcao_subfuncao ==	"01364"
replace code_cap =	28	if funcao_subfuncao ==	"01845"
replace code_cap =	17	if funcao_subfuncao ==	"02722"
replace code_cap =	12	if funcao_subfuncao ==	"03062"
replace code_cap =	17	if funcao_subfuncao ==	"04183"
replace code_cap =	7	if funcao_subfuncao ==	"04541"
replace code_cap =	4	if funcao_subfuncao ==	"04605"
replace code_cap =	4	if funcao_subfuncao ==	"04607"
replace code_cap =	13	if funcao_subfuncao ==	"08301"
replace code_cap =	5	if funcao_subfuncao ==	"08331"
replace code_cap =	20	if funcao_subfuncao ==	"08365"
replace code_cap =	5	if funcao_subfuncao ==	"09121"
replace code_cap =	7	if funcao_subfuncao ==	"19542"
replace code_cap =	8	if funcao_subfuncao ==	"19752"
replace code_cap =	8	if funcao_subfuncao ==	"20754"
replace code_cap =	17	if funcao_subfuncao ==	"22572"
replace code_cap =	15	if funcao_subfuncao ==	"22692"
replace code_cap =	8	if funcao_subfuncao ==	"25663"
replace code_cap =	28	if funcao_subfuncao ==	"25846"
replace code_cap =	10	if funcao_subfuncao ==	"26125"
replace code_cap =	10	if funcao_subfuncao ==	"26453"
replace code_cap =	23	if funcao_subfuncao ==	"27121"
replace code_cap =	17	if funcao_subfuncao ==	"01722"
replace code_cap =	28	if funcao_subfuncao ==	"01846"
replace code_cap =	17	if funcao_subfuncao ==	"03571"
replace code_cap =	12	if funcao_subfuncao ==	"04092"
replace code_cap =	23	if funcao_subfuncao ==	"04391"
replace code_cap =	4	if funcao_subfuncao ==	"04601"
replace code_cap =	1	if funcao_subfuncao ==	"04661"
replace code_cap =	17	if funcao_subfuncao ==	"04722"
replace code_cap =	28	if funcao_subfuncao ==	"04846"
replace code_cap =	4	if funcao_subfuncao ==	"05632"
replace code_cap =	28	if funcao_subfuncao ==	"05845"
replace code_cap =	28	if funcao_subfuncao ==	"05846"
replace code_cap =	2	if funcao_subfuncao ==	"06422"
replace code_cap =	17	if funcao_subfuncao ==	"06572"
replace code_cap =	28	if funcao_subfuncao ==	"06845"
replace code_cap =	28	if funcao_subfuncao ==	"06846"
replace code_cap =	99	if funcao_subfuncao ==	"06999"
replace code_cap =	28	if funcao_subfuncao ==	"07845"
replace code_cap =	13	if funcao_subfuncao ==	"08121"
replace code_cap =	13	if funcao_subfuncao ==	"08123"
replace code_cap =	17	if funcao_subfuncao ==	"08571"
replace code_cap =	17	if funcao_subfuncao ==	"08572"
replace code_cap =	13	if funcao_subfuncao ==	"08605"
replace code_cap =	28	if funcao_subfuncao ==	"08845"
replace code_cap =	28	if funcao_subfuncao ==	"08846"
replace code_cap =	12	if funcao_subfuncao ==	"09092"
replace code_cap =	5	if funcao_subfuncao ==	"09123"
replace code_cap =	17	if funcao_subfuncao ==	"09571"
replace code_cap =	28	if funcao_subfuncao ==	"09845"
replace code_cap =	3	if funcao_subfuncao ==	"10121"
replace code_cap =	3	if funcao_subfuncao ==	"10124"
replace code_cap =	17	if funcao_subfuncao ==	"10183"
replace code_cap =	6	if funcao_subfuncao ==	"10366"
replace code_cap =	2	if funcao_subfuncao ==	"10422"
replace code_cap =	3	if funcao_subfuncao ==	"10423"
replace code_cap =	14	if funcao_subfuncao ==	"10512"
replace code_cap =	28	if funcao_subfuncao ==	"10845"
replace code_cap =	28	if funcao_subfuncao ==	"10846"
replace code_cap =	5	if funcao_subfuncao ==	"11123"
replace code_cap =	28	if funcao_subfuncao ==	"11845"
replace code_cap =	28	if funcao_subfuncao ==	"11846"
replace code_cap =	28	if funcao_subfuncao ==	"12845"
replace code_cap =	28	if funcao_subfuncao ==	"13845"
replace code_cap =	12	if funcao_subfuncao ==	"14062"
replace code_cap =	2	if funcao_subfuncao ==	"14121"
replace code_cap =	2	if funcao_subfuncao ==	"14243"
replace code_cap =	13	if funcao_subfuncao ==	"14244"
replace code_cap =	28	if funcao_subfuncao ==	"14845"
replace code_cap =	28	if funcao_subfuncao ==	"14846"
replace code_cap =	14	if funcao_subfuncao ==	"15121"
replace code_cap =	14	if funcao_subfuncao ==	"15122"
replace code_cap =	14	if funcao_subfuncao ==	"15125"
replace code_cap =	17	if funcao_subfuncao ==	"15126"
replace code_cap =	14	if funcao_subfuncao ==	"15128"
replace code_cap =	17	if funcao_subfuncao ==	"15131"
replace code_cap =	5	if funcao_subfuncao ==	"15273"
replace code_cap =	20	if funcao_subfuncao ==	"15301"
replace code_cap =	20	if funcao_subfuncao ==	"15306"
replace code_cap =	5	if funcao_subfuncao ==	"15331"
replace code_cap =	20	if funcao_subfuncao ==	"15365"
replace code_cap =	17	if funcao_subfuncao ==	"15571"
replace code_cap =	28	if funcao_subfuncao ==	"15846"
replace code_cap =	14	if funcao_subfuncao ==	"16122"
replace code_cap =	17	if funcao_subfuncao ==	"16126"
replace code_cap =	14	if funcao_subfuncao ==	"17511"
replace code_cap =	28	if funcao_subfuncao ==	"17846"
replace code_cap =	7	if funcao_subfuncao ==	"18125"
replace code_cap =	23	if funcao_subfuncao ==	"18391"
replace code_cap =	23	if funcao_subfuncao ==	"18392"
replace code_cap =	28	if funcao_subfuncao ==	"18845"
replace code_cap =	28	if funcao_subfuncao ==	"18846"
replace code_cap =	16	if funcao_subfuncao ==	"19182"
replace code_cap =	20	if funcao_subfuncao ==	"19303"
replace code_cap =	14	if funcao_subfuncao ==	"19451"
replace code_cap =	8	if funcao_subfuncao ==	"19663"
replace code_cap =	17	if funcao_subfuncao ==	"19665"
replace code_cap =	28	if funcao_subfuncao ==	"19845"
replace code_cap =	7	if funcao_subfuncao ==	"20541"
replace code_cap =	17	if funcao_subfuncao ==	"20571"
replace code_cap =	17	if funcao_subfuncao ==	"20573"
replace code_cap =	4	if funcao_subfuncao ==	"20665"
replace code_cap =	15	if funcao_subfuncao ==	"20691"
replace code_cap =	15	if funcao_subfuncao ==	"20692"
replace code_cap =	15	if funcao_subfuncao ==	"20694"
replace code_cap =	28	if funcao_subfuncao ==	"20845"
replace code_cap =	14	if funcao_subfuncao ==	"21121"
replace code_cap =	14	if funcao_subfuncao ==	"21125"
replace code_cap =	14	if funcao_subfuncao ==	"21127"
replace code_cap =	17	if funcao_subfuncao ==	"21183"
replace code_cap =	13	if funcao_subfuncao ==	"21244"
replace code_cap =	6	if funcao_subfuncao ==	"21366"
replace code_cap =	2	if funcao_subfuncao ==	"21422"
replace code_cap =	14	if funcao_subfuncao ==	"21606"
replace code_cap =	15	if funcao_subfuncao ==	"21691"
replace code_cap =	28	if funcao_subfuncao ==	"21845"
replace code_cap =	28	if funcao_subfuncao ==	"21846"
replace code_cap =	1	if funcao_subfuncao ==	"22130"
replace code_cap =	17	if funcao_subfuncao ==	"22571"
replace code_cap =	17	if funcao_subfuncao ==	"22573"
replace code_cap =	14	if funcao_subfuncao ==	"22631"
replace code_cap =	18	if funcao_subfuncao ==	"22693"
replace code_cap =	15	if funcao_subfuncao ==	"22694"
replace code_cap =	28	if funcao_subfuncao ==	"22845"
replace code_cap =	28	if funcao_subfuncao ==	"22846"
replace code_cap =	99	if funcao_subfuncao ==	"22999"
replace code_cap =	15	if funcao_subfuncao ==	"23121"
replace code_cap =	23	if funcao_subfuncao ==	"23391"
replace code_cap =	17	if funcao_subfuncao ==	"23571"
replace code_cap =	1	if funcao_subfuncao ==	"23661"
replace code_cap =	15	if funcao_subfuncao ==	"23665"
replace code_cap =	15	if funcao_subfuncao ==	"23692"
replace code_cap =	28	if funcao_subfuncao ==	"23845"
replace code_cap =	17	if funcao_subfuncao ==	"24121"
replace code_cap =	17	if funcao_subfuncao ==	"24125"
replace code_cap =	15	if funcao_subfuncao ==	"24694"
replace code_cap =	28	if funcao_subfuncao ==	"24845"
replace code_cap =	28	if funcao_subfuncao ==	"24846"
replace code_cap =	8	if funcao_subfuncao ==	"25125"
replace code_cap =	8	if funcao_subfuncao ==	"25130"
replace code_cap =	8	if funcao_subfuncao ==	"25665"
replace code_cap =	28	if funcao_subfuncao ==	"25845"
replace code_cap =	99	if funcao_subfuncao ==	"25999"
replace code_cap =	10	if funcao_subfuncao ==	"26130"
replace code_cap =	17	if funcao_subfuncao ==	"26571"
replace code_cap =	17	if funcao_subfuncao ==	"26572"
replace code_cap =	15	if funcao_subfuncao ==	"26694"
replace code_cap =	28	if funcao_subfuncao ==	"26845"
replace code_cap =	28	if funcao_subfuncao ==	"26846"
replace code_cap =	17	if funcao_subfuncao ==	"27131"
replace code_cap =	28	if funcao_subfuncao ==	"28843"
replace code_cap =	20	if funcao_subfuncao ==	"01302"
replace code_cap =	12	if funcao_subfuncao ==	"02062"
replace code_cap =	17	if funcao_subfuncao ==	"02131"
replace code_cap =	20	if funcao_subfuncao ==	"04032"
replace code_cap =	20	if funcao_subfuncao ==	"04130"
replace code_cap =	20	if funcao_subfuncao ==	"04303"
replace code_cap =	16	if funcao_subfuncao ==	"05182"
replace code_cap =	5	if funcao_subfuncao ==	"05333"
replace code_cap =	2	if funcao_subfuncao ==	"05422"
replace code_cap =	7	if funcao_subfuncao ==	"05542"
replace code_cap =	15	if funcao_subfuncao ==	"05691"
replace code_cap =	14	if funcao_subfuncao ==	"08511"
replace code_cap =	7	if funcao_subfuncao ==	"10541"
replace code_cap =	2	if funcao_subfuncao ==	"12422"
replace code_cap =	23	if funcao_subfuncao ==	"12813"
replace code_cap =	23	if funcao_subfuncao ==	"13121"
replace code_cap =	23	if funcao_subfuncao ==	"13662"
replace code_cap =	23	if funcao_subfuncao ==	"13691"
replace code_cap =	13	if funcao_subfuncao ==	"14241"
replace code_cap =	13	if funcao_subfuncao ==	"14242"
replace code_cap =	6	if funcao_subfuncao ==	"14366"
replace code_cap =	14	if funcao_subfuncao ==	"15482"
replace code_cap =	19	if funcao_subfuncao ==	"16212"
replace code_cap =	14	if funcao_subfuncao ==	"16451"
replace code_cap =	14	if funcao_subfuncao ==	"16452"
replace code_cap =	12	if funcao_subfuncao ==	"18181"
replace code_cap =	5	if funcao_subfuncao ==	"18334"
replace code_cap =	14	if funcao_subfuncao ==	"18511"
replace code_cap =	14	if funcao_subfuncao ==	"18631"
replace code_cap =	17	if funcao_subfuncao ==	"19545"
replace code_cap =	6	if funcao_subfuncao ==	"21363"
replace code_cap =	6	if funcao_subfuncao ==	"21364"
replace code_cap =	17	if funcao_subfuncao ==	"21572"
replace code_cap =	4	if funcao_subfuncao ==	"21601"
replace code_cap =	1	if funcao_subfuncao ==	"22123"
replace code_cap =	14	if funcao_subfuncao ==	"22606"
replace code_cap =	17	if funcao_subfuncao ==	"24572"
replace code_cap =	23	if funcao_subfuncao ==	"26391"
replace code_cap =	7	if funcao_subfuncao ==	"26542"
replace code_cap =	1	if funcao_subfuncao ==	"26661"
replace code_cap =	28	if funcao_subfuncao ==	"28694"
replace code_cap =	19	if funcao_subfuncao ==	"05211"
replace code_cap =	3	if funcao_subfuncao ==	"05305"
replace code_cap =	20	if funcao_subfuncao ==	"05363"
replace code_cap =	19	if funcao_subfuncao ==	"08212"
replace code_cap =	28	if funcao_subfuncao ==	"09846"
replace code_cap =	17	if funcao_subfuncao ==	"14573"
replace code_cap =	7	if funcao_subfuncao ==	"15541"
replace code_cap =	14	if funcao_subfuncao ==	"15665"
replace code_cap =	10	if funcao_subfuncao ==	"20784"
replace code_cap =	15	if funcao_subfuncao ==	"23694"
replace code_cap =	2	if funcao_subfuncao ==	"24422"
replace code_cap =	21	if funcao_subfuncao ==	"04544"
replace code_cap =	13	if funcao_subfuncao ==	"08423"
replace code_cap =	23	if funcao_subfuncao ==	"13123"
replace code_cap =	23	if funcao_subfuncao ==	"13661"
replace code_cap =	28	if funcao_subfuncao ==	"13846"
replace code_cap =	3	if funcao_subfuncao ==	"18305"
replace code_cap =	10	if funcao_subfuncao ==	"18784"
replace code_cap =	3	if funcao_subfuncao ==	"20305"
replace code_cap =	3	if funcao_subfuncao ==	"21305"
replace code_cap =	23	if funcao_subfuncao ==	"21392"
replace code_cap =	17	if funcao_subfuncao ==	"24573"
replace code_cap =	10	if funcao_subfuncao ==	"25785"
replace code_cap =	3	if funcao_subfuncao ==	"26305"
replace code_cap =	23	if funcao_subfuncao ==	"27813"
replace code_cap =	99	if funcao_subfuncao ==	"98998"
replace code_cap =	12	if funcao_subfuncao ==	"02032"
replace code_cap =	16	if funcao_subfuncao ==	"04182"
replace code_cap =	23	if funcao_subfuncao ==	"04392"
replace code_cap =	7	if funcao_subfuncao ==	"04542"
replace code_cap =	23	if funcao_subfuncao ==	"05811"
replace code_cap =	12	if funcao_subfuncao ==	"06421"
replace code_cap =	14	if funcao_subfuncao ==	"06452"
replace code_cap =	17	if funcao_subfuncao ==	"08183"
replace code_cap =	6	if funcao_subfuncao ==	"08366"
replace code_cap =	6	if funcao_subfuncao ==	"11366"
replace code_cap =	23	if funcao_subfuncao ==	"11392"
replace code_cap =	6	if funcao_subfuncao ==	"12847"
replace code_cap =	2	if funcao_subfuncao ==	"14031"
replace code_cap =	2	if funcao_subfuncao ==	"14123"
replace code_cap =	17	if funcao_subfuncao ==	"14183"
replace code_cap =	23	if funcao_subfuncao ==	"14812"
replace code_cap =	19	if funcao_subfuncao ==	"15212"
replace code_cap =	13	if funcao_subfuncao ==	"15244"
replace code_cap =	14	if funcao_subfuncao ==	"17122"
replace code_cap =	4	if funcao_subfuncao ==	"20367"
replace code_cap =	7	if funcao_subfuncao ==	"21541"
replace code_cap =	4	if funcao_subfuncao ==	"21605"
replace code_cap =	14	if funcao_subfuncao ==	"22127"
replace code_cap =	5	if funcao_subfuncao ==	"22333"
replace code_cap =	21	if funcao_subfuncao ==	"22544"
replace code_cap =	6	if funcao_subfuncao ==	"28847"
replace code_cap =	17	if funcao_subfuncao ==	"13572"
replace code_cap =	5	if funcao_subfuncao ==	"14334"
replace code_cap =	17	if funcao_subfuncao ==	"15572"
replace code_cap =	8	if funcao_subfuncao ==	"19753"
replace code_cap =	8	if funcao_subfuncao ==	"19754"
replace code_cap =	28	if funcao_subfuncao ==	"28334"
replace code_cap =	28	if funcao_subfuncao ==	"28601"
replace code_cap =	28	if funcao_subfuncao ==	"28607"
replace code_cap =	12	if funcao_subfuncao ==	"03031"
replace code_cap =	1	if funcao_subfuncao ==	"11661"
replace code_cap =	15	if funcao_subfuncao ==	"18694"
replace code_cap =	28	if funcao_subfuncao ==	"27846"
replace code_cap =	28	if funcao_subfuncao ==	"28451"
replace code_cap =	28	if funcao_subfuncao ==	"28662"
replace code_cap =	28	if funcao_subfuncao ==	"28752"
replace code_cap =	28	if funcao_subfuncao ==	"28784"
replace code_cap =	5	if funcao_subfuncao ==	"04333"
replace code_cap =	10	if funcao_subfuncao ==	"04781"
replace code_cap =	23	if funcao_subfuncao ==	"04813"
replace code_cap =	5	if funcao_subfuncao ==	"08334"
replace code_cap =	5	if funcao_subfuncao ==	"12333"
replace code_cap =	23	if funcao_subfuncao ==	"12812"
replace code_cap =	4	if funcao_subfuncao ==	"18607"
replace code_cap =	5	if funcao_subfuncao ==	"24333"
replace code_cap =	8	if funcao_subfuncao ==	"25754"
replace code_cap =	12	if funcao_subfuncao ==	"03032"
replace code_cap =	5	if funcao_subfuncao ==	"04332"
replace code_cap =	13	if funcao_subfuncao ==	"05243"
replace code_cap =	20	if funcao_subfuncao ==	"05368"
replace code_cap =	5	if funcao_subfuncao ==	"08333"
replace code_cap =	17	if funcao_subfuncao ==	"09183"
replace code_cap =	23	if funcao_subfuncao ==	"10391"
replace code_cap =	6	if funcao_subfuncao ==	"12368"
replace code_cap =	6	if funcao_subfuncao ==	"12694"
replace code_cap =	23	if funcao_subfuncao ==	"13813"
replace code_cap =	19	if funcao_subfuncao ==	"14212"
replace code_cap =	2	if funcao_subfuncao ==	"15422"
replace code_cap =	8	if funcao_subfuncao ==	"18754"
replace code_cap =	7	if funcao_subfuncao ==	"19543"
replace code_cap =	4	if funcao_subfuncao ==	"20608"
replace code_cap =	4	if funcao_subfuncao ==	"20609"
replace code_cap =	19	if funcao_subfuncao ==	"21212"
replace code_cap =	8	if funcao_subfuncao ==	"21754"
replace code_cap =	17	if funcao_subfuncao ==	"22183"
replace code_cap =	10	if funcao_subfuncao ==	"26781"
replace code_cap =	28	if funcao_subfuncao ==	"28122"
replace code_cap =	28	if funcao_subfuncao ==	"28608"
replace code_cap =	99	if funcao_subfuncao ==	"04999"
replace code_cap =	5	if funcao_subfuncao ==	"18333"
replace code_cap =	17	if funcao_subfuncao ==	"24571"
replace code_cap =	5	if funcao_subfuncao ==	"02274"
replace code_cap =	7	if funcao_subfuncao ==	"25542"
replace code_cap =	14	if funcao_subfuncao ==	"15127"
replace code_cap =	14	if funcao_subfuncao ==	"26127"
replace code_cap =	28	if funcao_subfuncao ==	"02846"
replace code_cap =	28	if funcao_subfuncao ==	"03846"
replace code_cap =	28	if funcao_subfuncao ==	"07846"
replace code_cap =	99	if funcao_subfuncao ==	"20999"
replace code_cap =	19	if funcao_subfuncao ==	"22211"
replace code_cap =	4	if funcao_subfuncao ==	"22608"
replace code_cap =	19	if funcao_subfuncao ==	"04211"
replace code_cap =	4	if funcao_subfuncao ==	"04608"
replace code_cap =	7	if funcao_subfuncao ==	"19541"
replace code_cap =	17	if funcao_subfuncao ==	"23572"
replace code_cap =	17	if funcao_subfuncao ==	"02571"
replace code_cap =	99	if funcao_subfuncao ==	"02999"
replace code_cap =	19	if funcao_subfuncao ==	"14211"
replace code_cap =	19	if funcao_subfuncao ==	"20211"
replace code_cap =	14	if funcao_subfuncao ==	"20631"
replace code_cap =	99	if funcao_subfuncao ==	"23999"
replace code_cap =	7	if funcao_subfuncao ==	"25543"
replace code_cap =	10	if funcao_subfuncao ==	"26452"
replace code_cap =	99	if funcao_subfuncao ==	"27999"
replace code_cap =	28	if funcao_subfuncao ==	"28301"
replace code_cap =	28	if funcao_subfuncao ==	"28331"
replace code_cap =	17	if funcao_subfuncao ==	"05573"
replace code_cap =	23	if funcao_subfuncao ==	"05812"
replace code_cap =	3	if funcao_subfuncao ==	"14305"
replace code_cap =	19	if funcao_subfuncao ==	"25211"
replace code_cap =	19	if funcao_subfuncao ==	"26211"
replace code_cap =	14	if funcao_subfuncao ==	"06482"
replace code_cap =	6	if funcao_subfuncao ==	"20366"
replace code_cap =	5	if funcao_subfuncao ==	"09124"
replace code_cap =	17	if funcao_subfuncao ==	"19211"
replace code_cap =	12	if funcao_subfuncao ==	"06244"
replace code_cap =	4	if funcao_subfuncao ==	"21608"
replace code_cap =	14	if funcao_subfuncao ==	"22182"

/// Nomeação dos setores do CAP ///

generate str majortopic_name = ""

replace majortopic_name = "Macroeconomics" if code_cap ==1
replace majortopic_name = "Civil Rights" if code_cap ==2
replace majortopic_name = "Health" if code_cap ==3
replace majortopic_name = "Agriculture" if code_cap ==4
replace majortopic_name = "Social Security" if code_cap ==5
replace majortopic_name = "Education" if code_cap ==6
replace majortopic_name = "Environment" if code_cap ==7
replace majortopic_name = "Energy" if code_cap ==8
replace majortopic_name = "Transportation" if code_cap ==10
replace majortopic_name = "Justice" if code_cap ==12
replace majortopic_name = "Social Welfare" if code_cap ==13
replace majortopic_name = "Infrastructure" if code_cap ==14
replace majortopic_name = "Domestic Commerce" if code_cap ==15
replace majortopic_name = "Defense" if code_cap ==16
replace majortopic_name = "Technology" if code_cap ==17
replace majortopic_name = "Foreign Trade" if code_cap ==18
replace majortopic_name = "External Policy" if code_cap ==19
replace majortopic_name = "Public Administration" if code_cap ==20
replace majortopic_name = "Territory" if code_cap ==21
replace majortopic_name = "Culture and Leisure" if code_cap ==23
replace majortopic_name = "Contingency Reserve" if code_cap ==99

/// Junção dos valores aprovados por ano e code_cap ///

collapse (sum) valor_loa, by (ano code_cap majortopic_name)


/// Exclusão do código 28 (encargos especiais) ///

drop if code_cap == 28


/// Correção inflacionária / adicionar índice de deflação (Base IPCA_2021) //

merge m:m ano using "C:\Users\Gabriel\Desktop\Revistas 2023-2024\Publicados e aceitos\BPSR\Versões finais para publicação\Base complementar_IPCA_2021_BPSR_2025"
drop _merge

generate double valor_loa_real = valor_loa * IPCA_2021


/// Cálculo da curtose ///

rename code_cap majortopic
rename ano year
rename valor_loa_real real_spending

destring year, replace

xtset majortopic year


gen change_real_spending = (real_spending - L1.real_spending) / L1.real_spending

lmoments9 change // LK = 0.657

lmoments9 change if change_real_spending < 57 // LK = 0.444

lmoments9 change, by(majortopic_name) // Figura 5

lmoments9 change, by(year) // Figura 4



/// Padronização das mudanças orçamentárias ///

// maiores mudanças: 5771% (comércio exterior em 2009); 564% (assistência social em 2005) //


sum change_real_spending if change_real_spending < 57, det // Median  .0080701  /   Std. Dev.  .5584679

 
generate double padro_change_real_spending = (change_real_spending - 0.0080701)/0.5584679 
sum padro_change_real_spending, detail //  Percentil 5:  -0.6792875   / Percentil 95: 1.213739 



// Definição das pontuações // 

generate double Pontuação = 1 if change_real_spending < -0.6792875 |  change_real_spending > 1.213739

mvencode Pontuação, mv(0) // mudar missing para 0

replace Pontuação = . if year == 2000

// Classificação das pontuações

generate str tipo_mudança = ""
replace tipo_mudança = "Incrementalism" if Pontuação ==0
replace tipo_mudança = "Punctuation" if Pontuação ==1


/// Figuras ///

generate double percentual_change_real_spending = change_real_spending*100
generate double real_spending_bilhoes = real_spending/1000000000

// Figura 1. Distribuição das mudanças percentuais reais e parâmetros de pontuação 

histogram percentual_change_real_spending if percentual_change_real_spending < 300, bin(50) xline(-67.92875)xline (121.3739)frequency normal 

// Figura 2. Trajetória das despesas orçamentárias brasileiras por setor de políticas públicas (2000-2021)

 xtline real_spending_bilhoes if majortopic_name != "Social Security", i(majortopic_name) t(year)

// Figura 3. Mudanças percentuais por setor de política pública (2001-2021)

 xtline percentual_change_real_spending if majortopic_name != "Foreign Trade", i(majortopic_name) t(year)

// Figura 4. Indicador de L-kurtosis e despesas orçamentárias totais no Brasil (2000-2021)
// Os resultados provenientes da última coluna(t_4) da tabela gerada a partir do código abaixo correspondem aos valores anuais do indicador de 
// curtose das mudanças orçamentárias anuais, assim como os valores das despesas totais anuais. Estes valores foram exportados manualmente para o excel para
// a criação da Figura 4.

lmoments9 change, by(year) 
by year, sort : tabstat real_spending_bilhoes, statistics( sum )

// Figura 5. Indicador de L-kurtosis por setor de políticas públicas no Brasil (2000-2021)
// Idem à Figura 4

lmoments9 change, by(majortopic_name) 
 
// Figura 6. Identificação das ocorrências de incrementalismo e pontuações por ano e setor de políticas públicas (2001-2021)
// Como "Pontuação == 0" significa incrementalismo e "Pontuação == 1" significa pontuação, a legenda da figura foi ajustada manualmente de acordo 
// com essas correspondências. 

twoway (dropline Pontuação year if Pontuação == 0) (scatter Pontuação year if Pontuação == 1), by(majortopic_name)  

// Figura 7. Trajetória das despesas orçamentárias brasileiras com seguro social (2000-2021).

xtline real_spending_bilhoes if majortopic_name == "Social Security", i(majortopic_name) t(year)

// Figura 8. Mudanças percentuais do setor de comércio exterior (2001-2021)

xtline percentual_change_real_spending if majortopic_name == "Foreign Trade", i(majortopic_name) t(year)



/// Tabelas /// 

// Tabela 1. Análise descritiva das dotações orçamentárias por setor de políticas públicas // 
// Os dados gerados a partir dos dois conjuntos de códigos adiante foram exportados manualmente para o excel para a elaboração da Tabela 1

by majortopic_name, sort : tabstat real_spending, statistics( sum )

preserve 
clear
use "C:\Users\Gabriel\Desktop\Revistas 2023-2024\Publicados e aceitos\BPSR\Versões finais para publicação\Base de dados codificada_funcao_subfuncao_cap_loa_2000_2021_BPSR.dta"
by majortopic_name, sort : tabstat valor_loa, statistics( count ) 
restore


// Tabela 2. Medidas descritivas das mudanças orçamentárias percentuais brasileiras (2000-2021)
// Os dados da Tabela 2 foram obtidos a partir dos códigos adiante

sum change_real_spending, det
sum change_real_spending


// Tabela 3. Valor das despesas aprovados do orçamento da União entre 2000 e 2021 (Valores em bilhões - BRL)
// Os dados da Tabela 3 foram obtidos a partir do código adiante

table majortopic_name year, contents(sum real_spending )


// Tabela 4. Valores das mudanças orçamentárias percentuais por ano e setor de políticas públicas (2001-2021)
// Os dados da Tabela 4 foram obtidos a partir do código adiante

table majortopic_name year, contents(sum percentual_change_real_spending )


/// Quadro /// 

// Quadro 1. Resumo das pontuações orçamentárias de 2001 a 2021
// Os dados do Quadro 1 foram obtidos a partir do código adiante

table majortopic_name year if Pontuação == 1, contents(sum percentual_change_real_spending )

